home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / ADDTHEM.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  511b  |  18 lines
  1. ' ADDTHEM.BAS
  2. ' This program reads and adds values stored in DATA statements.
  3.  
  4. CONST ITEMS% = 20           ' set the number of items to be read
  5.  
  6. CLS
  7.  
  8. FOR i% = 1 TO ITEMS%        ' for each item to be read
  9.     READ number!            '   assign the next DATA item to number!
  10.     sum! = sum! + number!   '   add the item to the running total
  11. NEXT i%
  12.  
  13. PRINT "The sum of the"; ITEMS%; "numbers is"; sum!
  14.  
  15. DATA 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
  16. DATA 88.2, 25, 3.3, 100, -74.2, 0, 20, 0.34, -89, 5.4567
  17.  
  18.